home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / hacking / virriiorg / findport < prev    next >
Encoding:
Text File  |  1996-04-23  |  1.9 KB  |  72 lines
  1. #######################################
  2. # Function findports                  #
  3. # will find out which ports a server  #
  4. # uses to connect to other servers    #
  5. # /findports <servername>             #
  6. # TG!cedras@rahul.net                 #
  7. #######################################
  8.  
  9. alias findports {
  10. ^on ^211 -
  11. ^assign -server_inquired
  12. ^assign -found_ports
  13. ^assign -server_inquired
  14. ############ The following is to allow us to enter wildcards (*) and
  15. ############ to compare our entry to the //links entry so we can get
  16. ############ the full server name.
  17. ^on #^364 -567 * assign server_inquired $$1
  18. ^set display off
  19. //links $0
  20. wait 
  21. ^on #^364 -567 -*
  22. ############
  23. echo *** Please be patient...inquiring server $server_inquired
  24. echo     Do not reissue command until done
  25. portf $server_inquired
  26. }
  27.  
  28.  
  29. alias portf {
  30. ^assign -connecting_port
  31. ^assign -port_output
  32. ^assign -serverp
  33. ^assign -serverp_size
  34.  
  35. ^assign serverp $0
  36. ^assign serverp_size $@serverp
  37.  
  38. ^on #^211 -567 * if ( match($serverp $left($serverp_size $1)) ) {
  39.                   ^assign connecting_port $1
  40.                   @port_output = port_output ## [$lastbit($connecting_port) ]
  41.                   }
  42.  
  43. //stats L $serverp
  44. wait
  45. wait
  46. timer 5 fportclean
  47. @function_return = [$port_output]
  48. }
  49.  
  50. alias fportclean {
  51. timer 3 comment
  52. ^on #^211 -567 -*
  53. echo *** The port(s) for server $server_inquired are:
  54. echo     $port_output
  55. echo     Done!
  56. ^on ^211 * ^echo $stu($[40]1) $stu($left(19 $7-));echo $[10]2 $[10]3 $[10]4 $[10]5 $[7]6
  57. ^on ^211 "% *.*[*.*] *" $stu($[40]1) $stu($left(19 $7-));echo $[10]2 $[10]3 $[10]4 $[10]5 $[7]6
  58. ^on ^211 "% *[*" if (trace) {^echo $stu($[40]1) $stu($left(19 $7-));echo $[10]2 $[10]3 $[10]4 $[10]5 $[7]6}
  59. ^set display on
  60. }
  61.  
  62.  
  63. alias lastbit {
  64.         ^assign -lastbits
  65.         ^assign -lastbits2
  66.         @lastbits = rindex(. $0)
  67.         @lastbits = lastbits + 1
  68.         @lastbits2 = mid($lastbits $lastbits $0)
  69.         @function_return = strip(] $lastbits2)
  70. }
  71.  
  72.